home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / disasm.zip / UNGROUP.BAS < prev    next >
BASIC Source File  |  1988-06-03  |  280b  |  10 lines
  1. 5  CLS
  2. 10 OPEN "groupbug" FOR INPUT AS #1
  3. 20 WHILE NOT EOF(1)
  4. 30  LINE INPUT#1,A$
  5. 40  IF LEFT$(A$,3)="!@#" THEN FIL$=MID$(A$,4,12):CLOSE#2:OPEN FIL$ FOR OUTPUT AS #2:LOCATE 14,12:PRINT "Creating file ";FIL$;"       ";:GOTO 60
  6. 50  PRINT#2,A$
  7. 60  WEND
  8. 70  CLOSE
  9. 80 SYSTEM
  10.